home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / JUKEBOX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-09-29  |  5.9 KB  |  158 lines
  1. 10  ' LIST OF SONGS  SAVE "A:jukebox.bas"
  2. 20  CLS
  3. 25  LOCATE ,,0
  4. 30  PRINT
  5. 40  PRINT
  6. 41  PRINT "                   JUKEBOX"
  7. 50  PRINT
  8. 60  PRINT "         Choose a song from the list below:"
  9. 70  PRINT
  10. 80  PRINT "           1. America"
  11. 90  PRINT "           2. While strolling thru the park one day"
  12. 100  PRINT "           3. The Star-Spangled Banner"
  13. 110  PRINT "           4. Flight of the Bumblebee"
  14. 120  PRINT "           5. The Entertainer"
  15. 130  PRINT "           6. Do you know the way to San Jose"
  16. 140  PRINT "           7. Alfie
  17. 150  PRINT "           8. Dixie
  18. 155  PRINT "           9. The IBM Song
  19. 160  '
  20. 170  '
  21. 180  '
  22. 190  PRINT " "
  23. 200  INPUT;"         Enter your choice: (99 to End) ",TUNE
  24. 205  LOCATE ,,1
  25. 210  IF TUNE=99 THEN SYSTEM
  26. 215  IF TUNE=9 THEN CHAIN "ibmsong"
  27. 220  ON TUNE GOSUB 270,340,450,560,850,1100,1260,1430
  28. 230  GOTO 20
  29. 240  '
  30. 250  '
  31. 260  '
  32. 270  ' SONG: AMERICA
  33. 280  A$="O3L4FFGE.L8FL4GAAB-A.L8GL4F"
  34. 290  B$="GFEL1F.L4O4CCCC.O3L8B-L4AB-B-B-"
  35. 300  C$="B-.L8AL4GAL8B-AGFL4A.L8B-O4L4CL8DL16CO3B-L4AGL1F."
  36. 310  PLAY "T175XA$;XB$;XC$;"
  37. 320  RETURN
  38. 330  '
  39. 340  ' SONG: WHILE STROLLING THRU THE PARK ONE DAY
  40. 350  A$="O3L8D.L16E-L8F.L16FL8E.L16FL4B-FGEFFL8G.L16GL8F+.L16GL4O4CO3B-AEE-L8D.L16E-"
  41. 360  B$="L8F.L16FL8E.L16FL4B-L8F.L16F+L8G.L16GL8F+.L16GL4O4CL8C.O3L16B-L8A.L16G+L8A.L16GL8FL16F+L8G.L16A"
  42. 370  C$="L1B-L4B-."
  43. 380  D$="L8O4CL4D.O3FL8AL4O4D.O3AL8O4CL4B-AL1G"
  44. 390  PLAY "T150XA$;XB$;XC$;"
  45. 400  RETURN
  46. 410  '
  47. 420  '
  48. 430  '
  49. 440  ' SONG: THE STAR-SPANGLED BANNER
  50. 450  A$="O3L8E-.L16CL4O2A-O3CE-A-..O4L8C.O3L16B-L4A-CDL2E-L8E-E-O4L4C.O3L8B-L4A-L2GL8FG"
  51. 460  B$="L4A-A-E-CO2A-O3L8E-.L16CL4O2A-O3CE-L2A-O4L8C.L16O3B-L4A-CDL2E-L8E-E-"
  52. 470  C$="L4O4C.O3L8B-L4A-L2GL8FGL4A-A-E-CO2A-O4L8CCL4CD-E-L2E-L8D-C"
  53. 480  D$="O3L4B-O4CD-L2D-L8D-D-L4C.O3L8B-L4A-GGL8FGL4A-CDL2E-"
  54. 490  E$="L8E-E-L4A-A-L8A-G"    ' CHORUS
  55. 500  F$="L4FFFB-O4L8D-CO3B-A-L4A-G..L8E-E-L4A-.L8B-O4CD-L2E-O3L8A-B-O4L4C.L8D-L4O3B-L2A-"
  56. 510  PLAY "T104XA$;XB$;XC$;XD$;T96XE$;XF$;"
  57. 520  RETURN
  58. 530  '
  59. 540  '
  60. 550  ' SONG: FLIGHT OF THE BUMBLE BEE
  61. 560  A$="O4L16ED+DC+CFED+ED+DC+CC+DD+ED+DC+CFED+"
  62. 570  B$="ED+DC+CC+DD+ED+DC+DC+CO3BO4CC+DD+EFED+ED+DC+DC+CO3BO4CC+DD+EF+GG+"
  63. 580  C$="AG+GF+FB-AG+AG+GF+FF+GG+AG+GF+FB-AG+AG+GF+FF+GG+AG+GF+GF+FE"
  64. 590  D$="FF+GG+AB-AG+AG+GF+GF+FEFF+GG+AB-AG+L8AL16O3AAAAAAB-B-O4CO3B-O4B-O3B-O4CO3B-"
  65. 600  F$="L8O3AL16AAAAAAB-B-O4CO3B-O4B-O3B-O4CO3B-AB-AG+AB-AG+AB-AG+AB-AG+"
  66. 610  G$="AB-BO4CC+CO3BB-AB-BO4CC+CO3BB-L8AL16O4DDDDDDE-E-FE-O5E-O4E-FE-"
  67. 620  H$="L8DL16DDDDDDE-E-FE-O5E-O4E-FE-DE-DC+DE-DC+DE-DC+DEDC+"
  68. 630  I$="DE-EFF+FEE-DE-EFF+FEE-DC+CO3BB-O4E-DC+DC+CO3BB-BO4CC+DC+CO3BO4CO3BB-A"
  69. 640  J$="B-BO4CC+CC+DD+ED+DC+DC+CO3BO4CO3BB-AG+GF+FEFED+EFED+EFED+EFED+"
  70. 650  K$="EFED+EFED+EFED+EFED+L8EP8P4P4O5E8L32C.D.C."
  71. 660  L$="MSO4A8L32MNF.G.F.MSL8AO5CEP8L16O5EECCO4AAFFAAO5CCE8P8MLO4L64EFEFEFEFEFEFEFEEFEFEFEFEFEFEFE"
  72. 670  M$="O5EFEFEFEFEFEFEFEEFEFEFEFEFEFEFEO4EFEFEFEFEFEFEFEEFEFEFEFEFEFEFEEFEFEFEFP8"
  73. 680  N$="MNL16O4ED+DC+CFED+ED+DC+CC+DD+"
  74. 690  O$="ED+DC+CFED+ED+DC+CC+DD+ED+DC+DC+CO3BO4CC+DD+EFED+ED+DC+DC+CO3B"
  75. 700  P$="O4CC+DD+EF+GG+AG+GF+FB-AG+AG+GF+FF+GG+AG+GF+FB-AG+AG+GF+FF+GG+"
  76. 710  Q$="AG+GF+GF+FEFF+GG+AB-AG+AG+GF+FF+GG+ABO5CDEFED+ED+DC+CFED+"
  77. 720  R$="ED+DC+CC+DD+ED+DC+CFED+ED+DC+CC+DD+EP16O3G+AB-BO4CC+DC+CO3BO4CO3BB-A"
  78. 730  S$="G+AA+BO4CC+DD+EFED+EFED+EP16G+AB-BO5CC+DC+CO4BO5CO4BB-AG+AA+BO5CC+DD+"
  79. 740  T$="EFED+EF+GG+AG+GF+GF+FEFED+DC+CO4BB-AG+GF+GF+FEFED+DC+CO3BB-"
  80. 750  U$="AB-AG+AB-AG+AB-AG+ABO4CDEFED+EFED+EFED+EF+GG+A8P8O3EFF+G"
  81. 760  V$="G+AB-BO4CC+DD+EFF+GG+AB-BO5CC+DD+EF+GG+A8P8P4MSO4A4P4O3A4"
  82. 770  '
  83. 780  '
  84. 790  PLAY "T144XA$;XB$;XC$;XD$;XF$;XG$;XH$;XI$;XJ$;XK$;XL$;XM$;XN$;XO$;XP$;XQ$;XR$;XS$;XT$;XU$;XV$;"
  85. 800  RETURN     ' WHEW!
  86. 810  '
  87. 820  '
  88. 830  '
  89. 840  'SONGS:  THE ENTERTAINER
  90. 850  A$="O5L8DECO4L4AL8BL4GL8DECO3L4AL8BL4G"
  91. 860  B$="O3L8DECO2AABAA-G2O3L4GL8DD+"
  92. 870  C$="O3L8EL4O4CO3L8EO4L4CO3L4EO4L2C.O4L8CDD+ECDL4EO3L8BO4L4D"
  93. 880  D$="L2C.O3L8DD+EO4L4CO3L8EO4L4CO3L4EO4L2C.O3L8AG"
  94. 890  E$="O3L8F+AO4CL4EL8DCO3AO4L2D.O3L8DD+EO4L4CO3L8EO4L4CO3L4E"
  95. 900  F$="O4L2C.L8CDD+ECDL4EO3L8BO4L4DL2C.L8CD"
  96. 910  G$="O4L8ECDL4EL8CDCECDL4EL8CDCECDL4EO3L8BO4L4D"
  97. 920  H$="O4L2C.O3L8DD+"
  98. 930  H1$="O4L2C.L8EFF+"
  99. 940  I$="O4L4GL8AL4GL8EFF+G4AG4ECO3G"
  100. 950  J$="O3L8ABO4CDEDCDO3GO4EFGAGEF"
  101. 960  K$="O4L8G4AGGEFF+G4AG4GAA+"
  102. 970  L$="O4L8BB4B4AF+DG2.EFF+G4AG4EFF+"
  103. 980  M$="O4L8G4AG4ECO3GABO4CDEDCD"
  104. 990  N$="O4L8C2.O3GF+GO4C4O3AO4C4O3AO4CO3AGO4CEG4ECO3G"
  105. 1000  O$="O3L4AO4CE8DC2."
  106. 1010  O1$="O4L8EFF+"
  107. 1020  O2$="O3L8DD+"
  108. 1030  O3$="O4L2CL4C"
  109. 1040  PLAY "mnt130XA$;XB$;XC$;XD$;XE$;XF$;XG$;XH$;XC$;XD$;XE$;XF$;XG$;XH1$;XI$;XJ$;XK$;XL$;XM$;XN$;XO$;XO1$;XI$;XJ$;XK$;XL$;XM$;XN$;XO$;XO2$;XC$;XD$;XE$;XF$;XG$;XO3$;"
  110. 1050  RETURN
  111. 1060  '
  112. 1070  '
  113. 1080  '
  114. 1090  'SONG: DO YOU KNOW THE WAY TO SAN JOSE?
  115. 1100  A$="O3L4AGAO4CDO3G8GF8GGF8G8AF"
  116. 1110  B$="O3L4G.CCC8CC8CC8CAGAO4C"
  117. 1120  C$="O4L4DO3G8GF8GGF8G8AFG.CCC8"
  118. 1130  D$="O3L4CC8CC8CP4O4E8D8C8O3BABO4CD."
  119. 1140  E$="P4O4L4E8D8C8O3BA.O4D8O3BG8A1P2"
  120. 1150  F$="O3L4A8A8AA8A8AB8O4DD8FE1"
  121. 1160  G$="O3L4AB8O4FD.EC8DO3B8O4C2P8O3A8B8AO4C2"
  122. 1170  H$="O3L4A8B8AO4C2O3A8B8AO4C.O3A8BA8G1P4"
  123. 1180  I$="O3L4AGAO4CDO3G8GF8GP1"
  124. 1190  J$="O3L4AGAO4CDO3G8GF8GP1O3AGAO4CDO3G8GF8G"
  125. 1200  PLAY "MNT180XA$;XB$;XC$;XD$;XE$;XF$;XG$;XH$;XI$;XJ$;"
  126. 1210  RETURN
  127. 1220  '
  128. 1230  '
  129. 1240  '
  130. 1250  'SONG: ALFIE
  131. 1260  A$="O3L16GFEFG2.L8FO4C2P8O3GAG4CBAO2D4O3C"
  132. 1270  B$="O3L8D2P4EGO4ECC4.L16DCO3BO4CD8.O3GG4.P2"
  133. 1280  C$="O3L8ADE4FGA4AO4DO3B2O4C4O3ADE4FGA2"
  134. 1290  D$="O3L16A4A2GFEFG2.F8O4C2.O3G8A8"
  135. 1300  E$="O3L8G4CBAO2D4O3CD2P4EGO4ECC4.L16DCO3BO4CD8."
  136. 1310  F$="O3L8G16G4.P4.O4CO3ADE4FGA4AO4DO3B2P8O4C"
  137. 1320  G$="O4L8D4.O3BF+4G4E-2DEGBO4DE4.O3BB2"
  138. 1330  H$="P2P4P8O3L8DO4D4.O3BF+AGE-2DEGBO4C4.O3BO4C4O3B"
  139. 1340  I$="O3L16B4.A8B4A4GFEFG2.F8O4C2.P8"
  140. 1350  J$="P8L8O3ABO4CO3DCO4DCO3G2P8O4DC4P8O3ABO4CO3DCO4DA"
  141. 1360  K$="O3L8G4.ABO4C4.D4E2.O3ADE4FGA4AO4DO3B2O4C4"
  142. 1370  L$="O3L8ADE4FGA4AGG2.P1AGG2."
  143. 1380  PLAY "MLT90XA$;XB$;XC$;XD$;XE$;XF$;XG$;XH$;XI$;XJ$;XK$;XL$;"
  144. 1390  RETURN
  145. 1400  '
  146. 1410  '
  147. 1420  '
  148. 1430  ' SONG: DIXIE
  149. 1440  A0$="t255 o3g8e8 c4c4l8cdef l4ggge"
  150. 1450  A1$="t255 o3aaa3g8 a3l8gabo4cde2p8 c8o3g8o4c2p8 o3g8e8g2p8 d8e8c2p6"
  151. 1460  A2$="t255 l4o3go4ce dco3ao4c o3ao4d2o3ao4d2 o3go4cedc o3abo4c"
  152. 1470  A3$="t255 l4o3ageo4c o3eed ec2ed2 feg o4cedc o3ec2ed2 feg o4c2e2d2c1"
  153. 1480  PLAY A0$+A1$+A2$+A3$
  154. 1490  RETURN
  155. 1500  '
  156. 1510  '
  157. 1520  ' SONG: ????
  158.